home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Yahoo_Mult21368212112008.psc / YF Multi Room Source / Form1.frm
Text File  |  2008-12-12  |  72KB  |  2,148 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  5. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "Richtx32.ocx"
  6. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  7. Begin VB.Form Form1 
  8.    BackColor       =   &H00000000&
  9.    BorderStyle     =   1  'Fixed Single
  10.    Caption         =   "YF Multi Room Client/Spammer          ..::Version1.0::..  (50bot)            made by Yahooz Fynest aka Dean"
  11.    ClientHeight    =   5910
  12.    ClientLeft      =   1230
  13.    ClientTop       =   1620
  14.    ClientWidth     =   11280
  15.    FillColor       =   &H00FFFFFF&
  16.    BeginProperty Font 
  17.       Name            =   "Arial"
  18.       Size            =   8.25
  19.       Charset         =   0
  20.       Weight          =   400
  21.       Underline       =   0   'False
  22.       Italic          =   0   'False
  23.       Strikethrough   =   0   'False
  24.    EndProperty
  25.    Icon            =   "Form1.frx":0000
  26.    LinkTopic       =   "Form1"
  27.    MaxButton       =   0   'False
  28.    ScaleHeight     =   5910
  29.    ScaleWidth      =   11280
  30.    StartUpPosition =   3  'Windows Default
  31.    Begin VB.TextBox Text13 
  32.       Height          =   315
  33.       Left            =   840
  34.       TabIndex        =   107
  35.       Text            =   "<font INF ID:YF-MRC Ver:1.0 By:Yahooz-Fynest About:Client/Spammer>"
  36.       Top             =   6720
  37.       Width           =   7095
  38.    End
  39.    Begin VB.Timer Timer4 
  40.       Interval        =   2000
  41.       Left            =   6480
  42.       Top             =   7080
  43.    End
  44.    Begin VB.Timer Timer3 
  45.       Enabled         =   0   'False
  46.       Interval        =   1
  47.       Left            =   6000
  48.       Top             =   7080
  49.    End
  50.    Begin VB.TextBox Text1 
  51.       Height          =   315
  52.       Left            =   5040
  53.       Locked          =   -1  'True
  54.       TabIndex        =   17
  55.       Text            =   "Room"
  56.       Top             =   7920
  57.       Width           =   2175
  58.    End
  59.    Begin MSComDlg.CommonDialog c 
  60.       Left            =   8040
  61.       Top             =   7680
  62.       _ExtentX        =   847
  63.       _ExtentY        =   847
  64.       _Version        =   393216
  65.    End
  66.    Begin VB.TextBox SpamText 
  67.       Height          =   315
  68.       Left            =   5040
  69.       Locked          =   -1  'True
  70.       TabIndex        =   16
  71.       Text            =   "Spam"
  72.       Top             =   7560
  73.       Width           =   2175
  74.    End
  75.    Begin VB.TextBox Text10 
  76.       Height          =   255
  77.       Left            =   2400
  78.       TabIndex        =   15
  79.       Text            =   "Text10"
  80.       Top             =   7440
  81.       Width           =   1575
  82.    End
  83.    Begin VB.TextBox Text31 
  84.       Height          =   315
  85.       Left            =   840
  86.       TabIndex        =   14
  87.       Text            =   "Text31"
  88.       Top             =   7440
  89.       Width           =   855
  90.    End
  91.    Begin VB.TextBox Text30 
  92.       Height          =   315
  93.       Left            =   2880
  94.       TabIndex        =   13
  95.       Text            =   "2"
  96.       Top             =   8160
  97.       Width           =   495
  98.    End
  99.    Begin VB.TextBox Text28 
  100.       Height          =   315
  101.       Left            =   7320
  102.       TabIndex        =   12
  103.       Text            =   "1"
  104.       Top             =   7560
  105.       Width           =   615
  106.    End
  107.    Begin VB.TextBox Text26 
  108.       Height          =   315
  109.       Left            =   1560
  110.       TabIndex        =   11
  111.       Text            =   "1"
  112.       Top             =   8160
  113.       Width           =   615
  114.    End
  115.    Begin VB.TextBox Text25 
  116.       Height          =   315
  117.       Left            =   7320
  118.       TabIndex        =   10
  119.       Text            =   "0"
  120.       Top             =   7920
  121.       Width           =   615
  122.    End
  123.    Begin VB.TextBox Text19 
  124.       Height          =   315
  125.       Left            =   4080
  126.       TabIndex        =   9
  127.       Text            =   """>"
  128.       Top             =   7440
  129.       Width           =   855
  130.    End
  131.    Begin VB.TextBox Text18 
  132.       Height          =   315
  133.       Left            =   840
  134.       TabIndex        =   8
  135.       Text            =   "<font face=""Comic Sans MS"" size=""12"">"
  136.       Top             =   7080
  137.       Width           =   4095
  138.    End
  139.    Begin VB.TextBox Text16 
  140.       Height          =   315
  141.       Left            =   4200
  142.       TabIndex        =   7
  143.       Text            =   "1"
  144.       Top             =   7800
  145.       Width           =   735
  146.    End
  147.    Begin VB.TextBox Text15 
  148.       Height          =   315
  149.       Left            =   2040
  150.       TabIndex        =   6
  151.       Text            =   "1"
  152.       Top             =   7800
  153.       Width           =   2055
  154.    End
  155.    Begin VB.TextBox Text9 
  156.       Height          =   315
  157.       Left            =   840
  158.       TabIndex        =   5
  159.       Text            =   "1"
  160.       Top             =   7800
  161.       Width           =   1095
  162.    End
  163.    Begin VB.Timer Timer2 
  164.       Enabled         =   0   'False
  165.       Interval        =   1
  166.       Left            =   5040
  167.       Top             =   7080
  168.    End
  169.    Begin VB.TextBox txtnumber 
  170.       Height          =   315
  171.       Left            =   1800
  172.       TabIndex        =   4
  173.       Text            =   "546"
  174.       Top             =   7440
  175.       Width           =   495
  176.    End
  177.    Begin VB.TextBox Text11 
  178.       Height          =   315
  179.       Left            =   840
  180.       TabIndex        =   3
  181.       Text            =   "0"
  182.       Top             =   8160
  183.       Width           =   615
  184.    End
  185.    Begin VB.TextBox Text12 
  186.       Height          =   315
  187.       Left            =   2160
  188.       TabIndex        =   2
  189.       Text            =   "0"
  190.       Top             =   8160
  191.       Width           =   615
  192.    End
  193.    Begin MSComDlg.CommonDialog CommonDialog2 
  194.       Left            =   8040
  195.       Top             =   6720
  196.       _ExtentX        =   847
  197.       _ExtentY        =   847
  198.       _Version        =   393216
  199.    End
  200.    Begin VB.TextBox Text2 
  201.       Height          =   285
  202.       Left            =   3480
  203.       TabIndex        =   1
  204.       Top             =   8160
  205.       Width           =   1455
  206.    End
  207.    Begin VB.Timer Timer1 
  208.       Interval        =   2000
  209.       Left            =   5520
  210.       Top             =   7080
  211.    End
  212.    Begin MSComctlLib.StatusBar Status 
  213.       Align           =   2  'Align Bottom
  214.       Height          =   255
  215.       Left            =   0
  216.       TabIndex        =   0
  217.       Top             =   5655
  218.       Width           =   11280
  219.       _ExtentX        =   19897
  220.       _ExtentY        =   450
  221.       _Version        =   393216
  222.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  223.          NumPanels       =   11
  224.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  225.             Object.Width           =   5733
  226.             MinWidth        =   5733
  227.             Text            =   "Status:"
  228.             TextSave        =   "Status:"
  229.          EndProperty
  230.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  231.             Alignment       =   1
  232.             Object.Width           =   1446
  233.             MinWidth        =   1446
  234.             Text            =   "Logged In:"
  235.             TextSave        =   "Logged In:"
  236.          EndProperty
  237.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  238.             Alignment       =   1
  239.             Object.Width           =   882
  240.             MinWidth        =   882
  241.             Text            =   "0"
  242.             TextSave        =   "0"
  243.          EndProperty
  244.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  245.             Alignment       =   1
  246.             Object.Width           =   1270
  247.             MinWidth        =   1270
  248.             Text            =   "In Room:"
  249.             TextSave        =   "In Room:"
  250.          EndProperty
  251.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  252.             Alignment       =   1
  253.             Object.Width           =   882
  254.             MinWidth        =   882
  255.             Text            =   "0"
  256.             TextSave        =   "0"
  257.          EndProperty
  258.          BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  259.             Alignment       =   1
  260.             Object.Width           =   1587
  261.             MinWidth        =   1587
  262.             Text            =   "Spam Sent:"
  263.             TextSave        =   "Spam Sent:"
  264.          EndProperty
  265.          BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  266.             Alignment       =   1
  267.             Object.Width           =   1147
  268.             MinWidth        =   1147
  269.             Text            =   "0"
  270.             TextSave        =   "0"
  271.          EndProperty
  272.          BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  273.             Alignment       =   1
  274.             Object.Width           =   2293
  275.             MinWidth        =   2293
  276.             Text            =   "Total Incomming:"
  277.             TextSave        =   "Total Incomming:"
  278.          EndProperty
  279.          BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  280.             Alignment       =   1
  281.             Object.Width           =   1764
  282.             MinWidth        =   1764
  283.             Text            =   "0"
  284.             TextSave        =   "0"
  285.          EndProperty
  286.          BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  287.             Alignment       =   1
  288.             Object.Width           =   1235
  289.             MinWidth        =   1235
  290.             Text            =   "Blocked:"
  291.             TextSave        =   "Blocked:"
  292.          EndProperty
  293.          BeginProperty Panel11 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  294.             Alignment       =   1
  295.             Object.Width           =   1411
  296.             MinWidth        =   1411
  297.             Text            =   "0"
  298.             TextSave        =   "0"
  299.          EndProperty
  300.       EndProperty
  301.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  302.          Name            =   "Arial"
  303.          Size            =   8.25
  304.          Charset         =   0
  305.          Weight          =   400
  306.          Underline       =   0   'False
  307.          Italic          =   0   'False
  308.          Strikethrough   =   0   'False
  309.       EndProperty
  310.    End
  311.    Begin MSComctlLib.ImageList ImageList1 
  312.       Left            =   8640
  313.       Top             =   6720
  314.       _ExtentX        =   1005
  315.       _ExtentY        =   1005
  316.       BackColor       =   -2147483643
  317.       ImageWidth      =   14
  318.       ImageHeight     =   14
  319.       MaskColor       =   12632256
  320.       _Version        =   393216
  321.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  322.          NumListImages   =   8
  323.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.             Picture         =   "Form1.frx":0CCE
  325.             Key             =   ""
  326.          EndProperty
  327.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.             Picture         =   "Form1.frx":10D8
  329.             Key             =   ""
  330.          EndProperty
  331.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.             Picture         =   "Form1.frx":11F0
  333.             Key             =   ""
  334.          EndProperty
  335.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.             Picture         =   "Form1.frx":1ECE
  337.             Key             =   ""
  338.          EndProperty
  339.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.             Picture         =   "Form1.frx":2BAC
  341.             Key             =   ""
  342.          EndProperty
  343.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.             Picture         =   "Form1.frx":2CAE
  345.             Key             =   ""
  346.          EndProperty
  347.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.             Picture         =   "Form1.frx":2DB0
  349.             Key             =   ""
  350.          EndProperty
  351.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.             Picture         =   "Form1.frx":3A8E
  353.             Key             =   ""
  354.          EndProperty
  355.       EndProperty
  356.    End
  357.    Begin MSWinsockLib.Winsock socket 
  358.       Index           =   0
  359.       Left            =   7440
  360.       Top             =   7080
  361.       _ExtentX        =   741
  362.       _ExtentY        =   741
  363.       _Version        =   393216
  364.    End
  365.    Begin MSComDlg.CommonDialog CommonDialog1 
  366.       Left            =   8040
  367.       Top             =   7200
  368.       _ExtentX        =   847
  369.       _ExtentY        =   847
  370.       _Version        =   393216
  371.    End
  372.    Begin MSWinsockLib.Winsock CapSck 
  373.       Left            =   6960
  374.       Top             =   7080
  375.       _ExtentX        =   741
  376.       _ExtentY        =   741
  377.       _Version        =   393216
  378.    End
  379.    Begin TabDlg.SSTab Debugging 
  380.       Height          =   5655
  381.       Left            =   0
  382.       TabIndex        =   18
  383.       Top             =   0
  384.       Width           =   11295
  385.       _ExtentX        =   19923
  386.       _ExtentY        =   9975
  387.       _Version        =   393216
  388.       Tabs            =   5
  389.       TabsPerRow      =   5
  390.       TabHeight       =   520
  391.       TabCaption(0)   =   "Bots / Controls / Stats"
  392.       TabPicture(0)   =   "Form1.frx":4048
  393.       Tab(0).ControlEnabled=   -1  'True
  394.       Tab(0).Control(0)=   "Label15"
  395.       Tab(0).Control(0).Enabled=   0   'False
  396.       Tab(0).Control(1)=   "Label12"
  397.       Tab(0).Control(1).Enabled=   0   'False
  398.       Tab(0).Control(2)=   "Label14"
  399.       Tab(0).Control(2).Enabled=   0   'False
  400.       Tab(0).Control(3)=   "ListView1"
  401.       Tab(0).Control(3).Enabled=   0   'False
  402.       Tab(0).Control(4)=   "Frame2"
  403.       Tab(0).Control(4).Enabled=   0   'False
  404.       Tab(0).Control(5)=   "Command1"
  405.       Tab(0).Control(5).Enabled=   0   'False
  406.       Tab(0).Control(6)=   "Command2"
  407.       Tab(0).Control(6).Enabled=   0   'False
  408.       Tab(0).Control(7)=   "Combo1"
  409.       Tab(0).Control(7).Enabled=   0   'False
  410.       Tab(0).Control(8)=   "Command5"
  411.       Tab(0).Control(8).Enabled=   0   'False
  412.       Tab(0).Control(9)=   "Text3"
  413.       Tab(0).Control(9).Enabled=   0   'False
  414.       Tab(0).Control(10)=   "Command11"
  415.       Tab(0).Control(10).Enabled=   0   'False
  416.       Tab(0).Control(11)=   "Command14"
  417.       Tab(0).Control(11).Enabled=   0   'False
  418.       Tab(0).Control(12)=   "Text22"
  419.       Tab(0).Control(12).Enabled=   0   'False
  420.       Tab(0).Control(13)=   "Combo2"
  421.       Tab(0).Control(13).Enabled=   0   'False
  422.       Tab(0).Control(14)=   "List4"
  423.       Tab(0).Control(14).Enabled=   0   'False
  424.       Tab(0).Control(15)=   "Command6"
  425.       Tab(0).Control(15).Enabled=   0   'False
  426.       Tab(0).Control(16)=   "Command7"
  427.       Tab(0).Control(16).Enabled=   0   'False
  428.       Tab(0).Control(17)=   "Combo3"
  429.       Tab(0).Control(17).Enabled=   0   'False
  430.       Tab(0).ControlCount=   18
  431.       TabCaption(1)   =   "Chat Bot / Boot"
  432.       TabPicture(1)   =   "Form1.frx":4064
  433.       Tab(1).ControlEnabled=   0   'False
  434.       Tab(1).Control(0)=   "Label8"
  435.       Tab(1).Control(0).Enabled=   0   'False
  436.       Tab(1).Control(1)=   "Label6"
  437.       Tab(1).Control(1).Enabled=   0   'False
  438.       Tab(1).Control(2)=   "Frame6"
  439.       Tab(1).Control(2).Enabled=   0   'False
  440.       Tab(1).Control(3)=   "Command24"
  441.       Tab(1).Control(3).Enabled=   0   'False
  442.       Tab(1).Control(4)=   "Text7"
  443.       Tab(1).Control(4).Enabled=   0   'False
  444.       Tab(1).Control(5)=   "Text5"
  445.       Tab(1).Control(5).Enabled=   0   'False
  446.       Tab(1).ControlCount=   6
  447.       TabCaption(2)   =   "SpamMessages / Rooms"
  448.       TabPicture(2)   =   "Form1.frx":4080
  449.       Tab(2).ControlEnabled=   0   'False
  450.       Tab(2).Control(0)=   "Label4"
  451.       Tab(2).Control(0).Enabled=   0   'False
  452.       Tab(2).Control(1)=   "FrameSpam"
  453.       Tab(2).Control(1).Enabled=   0   'False
  454.       Tab(2).Control(2)=   "Frame1"
  455.       Tab(2).Control(2).Enabled=   0   'False
  456.       Tab(2).Control(3)=   "Frame3"
  457.       Tab(2).Control(3).Enabled=   0   'False
  458.       Tab(2).ControlCount=   4
  459.       TabCaption(3)   =   "Names Grabbed / PMs"
  460.       TabPicture(3)   =   "Form1.frx":409C
  461.       Tab(3).ControlEnabled=   0   'False
  462.       Tab(3).Control(0)=   "Frame7"
  463.       Tab(3).Control(1)=   "Frame5"
  464.       Tab(3).Control(2)=   "Frame4"
  465.       Tab(3).ControlCount=   3
  466.       TabCaption(4)   =   "Incomming Debug"
  467.       TabPicture(4)   =   "Form1.frx":40B8
  468.       Tab(4).ControlEnabled=   0   'False
  469.       Tab(4).Control(0)=   "Label16"
  470.       Tab(4).Control(0).Enabled=   0   'False
  471.       Tab(4).Control(1)=   "Text555"
  472.       Tab(4).Control(1).Enabled=   0   'False
  473.       Tab(4).Control(2)=   "Check4"
  474.       Tab(4).Control(2).Enabled=   0   'False
  475.       Tab(4).Control(3)=   "Command26"
  476.       Tab(4).Control(3).Enabled=   0   'False
  477.       Tab(4).ControlCount=   4
  478.       Begin VB.ComboBox Combo3 
  479.          Height          =   330
  480.          ItemData        =   "Form1.frx":40D4
  481.          Left            =   3000
  482.          List            =   "Form1.frx":40E7
  483.          Style           =   2  'Dropdown List
  484.          TabIndex        =   109
  485.          Top             =   1200
  486.          Width           =   735
  487.       End
  488.       Begin VB.CommandButton Command26 
  489.          Caption         =   "Clear Debug"
  490.          Height          =   255
  491.          Left            =   -74880
  492.          TabIndex        =   100
  493.          Top             =   5280
  494.          Width           =   1215
  495.       End
  496.       Begin VB.CheckBox Check4 
  497.          Caption         =   "Debug??"
  498.          Height          =   255
  499.          Left            =   -64800
  500.          TabIndex        =   99
  501.          Top             =   5280
  502.          Width           =   975
  503.       End
  504.       Begin VB.CommandButton Command7 
  505.          Caption         =   "Clear List"
  506.          Height          =   255
  507.          Left            =   1200
  508.          TabIndex        =   97
  509.          Top             =   5280
  510.          Width           =   1095
  511.       End
  512.       Begin VB.CommandButton Command6 
  513.          Caption         =   "Save"
  514.          Height          =   255
  515.          Left            =   120
  516.          TabIndex        =   96
  517.          Top             =   5280
  518.          Width           =   1095
  519.       End
  520.       Begin VB.ListBox List4 
  521.          Height          =   900
  522.          Left            =   120
  523.          TabIndex        =   95
  524.          Top             =   4320
  525.          Width           =   2175
  526.       End
  527.       Begin VB.ComboBox Combo2 
  528.          BeginProperty Font 
  529.             Name            =   "MS Sans Serif"
  530.             Size            =   8.25
  531.             Charset         =   0
  532.             Weight          =   400
  533.             Underline       =   0   'False
  534.             Italic          =   0   'False
  535.             Strikethrough   =   0   'False
  536.          EndProperty
  537.          Height          =   315
  538.          ItemData        =   "Form1.frx":40FF
  539.          Left            =   120
  540.          List            =   "Form1.frx":414E
  541.          Style           =   2  'Dropdown List
  542.          TabIndex        =   94
  543.          Top             =   3600
  544.          Width           =   3615
  545.       End
  546.       Begin VB.TextBox Text5 
  547.          Height          =   315
  548.          Left            =   -73560
  549.          Locked          =   -1  'True
  550.          TabIndex        =   82
  551.          Text            =   "Not Processing Chat"
  552.          Top             =   480
  553.          Width           =   2295
  554.       End
  555.       Begin VB.TextBox Text7 
  556.          Height          =   315
  557.          Left            =   -70080
  558.          Locked          =   -1  'True
  559.          TabIndex        =   81
  560.          Text            =   "Not Processing Chat"
  561.          Top             =   480
  562.          Width           =   2295
  563.       End
  564.       Begin VB.TextBox Text22 
  565.          BeginProperty Font 
  566.             Name            =   "Arial"
  567.             Size            =   6.75
  568.             Charset         =   0
  569.             Weight          =   400
  570.             Underline       =   0   'False
  571.             Italic          =   0   'False
  572.             Strikethrough   =   0   'False
  573.          EndProperty
  574.          Height          =   315
  575.          Left            =   2280
  576.          Locked          =   -1  'True
  577.          TabIndex        =   76
  578.          Text            =   "Login Delay:"
  579.          Top             =   1920
  580.          Width           =   855
  581.       End
  582.       Begin VB.CommandButton Command14 
  583.          Caption         =   "All Leave All DC"
  584.          Height          =   315
  585.          Left            =   2280
  586.          TabIndex        =   75
  587.          ToolTipText     =   "Make Bots In Rooms Leave and All Bots DC from Yahoo!"
  588.          Top             =   2280
  589.          Width           =   1455
  590.       End
  591.       Begin VB.CommandButton Command11 
  592.          Caption         =   "Reset Failed Join Bots"
  593.          Height          =   495
  594.          Left            =   2280
  595.          TabIndex        =   74
  596.          ToolTipText     =   "Reset Failed Joins Back to just Logged In Smiley!"
  597.          Top             =   3000
  598.          Width           =   1455
  599.       End
  600.       Begin VB.TextBox Text3 
  601.          Alignment       =   2  'Center
  602.          Height          =   315
  603.          Left            =   3120
  604.          TabIndex        =   73
  605.          Text            =   "0.75"
  606.          Top             =   1920
  607.          Width           =   615
  608.       End
  609.       Begin VB.CommandButton Command5 
  610.          Caption         =   "Join Bot/s"
  611.          Enabled         =   0   'False
  612.          Height          =   375
  613.          Left            =   2280
  614.          TabIndex        =   72
  615.          Top             =   2640
  616.          Width           =   1455
  617.       End
  618.       Begin VB.ComboBox Combo1 
  619.          Height          =   330
  620.          Left            =   2280
  621.          TabIndex        =   71
  622.          Text            =   "#Bots"
  623.          Top             =   840
  624.          Width           =   1455
  625.       End
  626.       Begin VB.CommandButton Command2 
  627.          Caption         =   "LoG In Bots"
  628.          Height          =   330
  629.          Left            =   2280
  630.          TabIndex        =   70
  631.          Top             =   1560
  632.          Width           =   1455
  633.       End
  634.       Begin VB.CommandButton Command1 
  635.          Caption         =   "Load Bots"
  636.          Height          =   375
  637.          Left            =   2280
  638.          MouseIcon       =   "Form1.frx":43B8
  639.          Picture         =   "Form1.frx":5282
  640.          TabIndex        =   69
  641.          Top             =   480
  642.          Width           =   1455
  643.       End
  644.       Begin VB.Frame Frame3 
  645.          Caption         =   "If anyone PMs any Bot, Auto PM back this Message..."
  646.          Height          =   855
  647.          Left            =   -74880
  648.          TabIndex        =   66
  649.          Top             =   5820
  650.          Visible         =   0   'False
  651.          Width           =   11055
  652.          Begin VB.TextBox Text21 
  653.             Height          =   315
  654.             Left            =   120
  655.             MaxLength       =   150
  656.             TabIndex        =   68
  657.             Text            =   "Your PM Spam Message To Auto Send to anyone that PMs any of your Bots Goes Here!!"
  658.             Top             =   360
  659.             Width           =   10815
  660.          End
  661.          Begin VB.CheckBox Check5 
  662.             Caption         =   "Auto PM Spam Response On/Off"
  663.             Height          =   255
  664.             Left            =   8160
  665.             TabIndex        =   67
  666.             Top             =   0
  667.             Width           =   2775
  668.          End
  669.       End
  670.       Begin VB.Frame Frame2 
  671.          Caption         =   "Stats.... and Listing Of What Bot is In What Room!!"
  672.          Height          =   5055
  673.          Left            =   3840
  674.          TabIndex        =   64
  675.          Top             =   480
  676.          Width           =   7335
  677.          Begin VB.CommandButton Command3 
  678.             Caption         =   "Clear Stats Screen"
  679.             Height          =   255
  680.             Left            =   3720
  681.             TabIndex        =   79
  682.             Top             =   4680
  683.             Width           =   3495
  684.          End
  685.          Begin VB.ListBox List2 
  686.             Height          =   4680
  687.             ItemData        =   "Form1.frx":614C
  688.             Left            =   120
  689.             List            =   "Form1.frx":614E
  690.             TabIndex        =   65
  691.             Top             =   240
  692.             Width           =   3495
  693.          End
  694.          Begin RichTextLib.RichTextBox Text17 
  695.             Height          =   4335
  696.             Left            =   3720
  697.             TabIndex        =   80
  698.             ToolTipText     =   "Double Click To Clear!"
  699.             Top             =   240
  700.             Width           =   3495
  701.             _ExtentX        =   6165
  702.             _ExtentY        =   7646
  703.             _Version        =   393217
  704.             ScrollBars      =   2
  705.             TextRTF         =   $"Form1.frx":6150
  706.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  707.                Name            =   "Arial"
  708.                Size            =   8.25
  709.                Charset         =   0
  710.                Weight          =   400
  711.                Underline       =   0   'False
  712.                Italic          =   0   'False
  713.                Strikethrough   =   0   'False
  714.             EndProperty
  715.          End
  716.       End
  717.       Begin VB.Frame Frame7 
  718.          Caption         =   "illy and @ , ID User's Found in each Room!"
  719.          Height          =   5055
  720.          Left            =   -67560
  721.          TabIndex        =   56
  722.          Top             =   480
  723.          Width           =   3735
  724.          Begin VB.ListBox List10 
  725.             Height          =   1950
  726.             Left            =   120
  727.             TabIndex        =   61
  728.             ToolTipText     =   "Double Click to Remove 1"
  729.             Top             =   2400
  730.             Width           =   3495
  731.          End
  732.          Begin VB.CommandButton Command18 
  733.             Caption         =   "Save @ ID's"
  734.             Height          =   255
  735.             Left            =   1440
  736.             TabIndex        =   60
  737.             Top             =   4440
  738.             Width           =   1095
  739.          End
  740.          Begin VB.CommandButton Command17 
  741.             Caption         =   "Clear Both"
  742.             Height          =   495
  743.             Left            =   2640
  744.             TabIndex        =   59
  745.             Top             =   4440
  746.             Width           =   975
  747.          End
  748.          Begin VB.CommandButton Command15 
  749.             Caption         =   "Save illy's"
  750.             Height          =   255
  751.             Left            =   120
  752.             TabIndex        =   58
  753.             Top             =   4440
  754.             Width           =   1215
  755.          End
  756.          Begin VB.ListBox List9 
  757.             Height          =   2160
  758.             Left            =   120
  759.             TabIndex        =   57
  760.             ToolTipText     =   "Double Click to Remove 1"
  761.             Top             =   240
  762.             Width           =   3495
  763.          End
  764.          Begin VB.Label Label11 
  765.             Alignment       =   2  'Center
  766.             BackStyle       =   0  'Transparent
  767.             Caption         =   "0"
  768.             Height          =   255
  769.             Left            =   1440
  770.             TabIndex        =   63
  771.             Top             =   4680
  772.             Width           =   1095
  773.          End
  774.          Begin VB.Label Label10 
  775.             Alignment       =   2  'Center
  776.             BackStyle       =   0  'Transparent
  777.             Caption         =   "0"
  778.             Height          =   255
  779.             Left            =   120
  780.             TabIndex        =   62
  781.             Top             =   4680
  782.             Width           =   1215
  783.          End
  784.       End
  785.       Begin VB.Frame Frame5 
  786.          Caption         =   "Users That Sent a PM To 1 Of Your Bots!!"
  787.          Height          =   5055
  788.          Left            =   -71280
  789.          TabIndex        =   50
  790.          Top             =   480
  791.          Width           =   3615
  792.          Begin VB.CommandButton Command23 
  793.             Caption         =   "Kill Duplicates"
  794.             Height          =   255
  795.             Left            =   120
  796.             TabIndex        =   54
  797.             Top             =   4680
  798.             Width           =   1575
  799.          End
  800.          Begin VB.CommandButton Command31 
  801.             Caption         =   "Clear All"
  802.             Height          =   495
  803.             Left            =   2520
  804.             TabIndex        =   53
  805.             Top             =   4440
  806.             Width           =   975
  807.          End
  808.          Begin VB.CommandButton Command30 
  809.             Caption         =   "Save PM User ID's"
  810.             Height          =   255
  811.             Left            =   120
  812.             TabIndex        =   52
  813.             Top             =   4440
  814.             Width           =   1575
  815.          End
  816.          Begin VB.ListBox List6 
  817.             Height          =   4050
  818.             Left            =   120
  819.             TabIndex        =   51
  820.             ToolTipText     =   "Double Click to Remove 1"
  821.             Top             =   240
  822.             Width           =   3375
  823.          End
  824.          Begin VB.Label Label2 
  825.             Alignment       =   2  'Center
  826.             BackStyle       =   0  'Transparent
  827.             Caption         =   "0"
  828.             Height          =   255
  829.             Left            =   1680
  830.             TabIndex        =   55
  831.             Top             =   4680
  832.             Width           =   855
  833.          End
  834.       End
  835.       Begin VB.Frame Frame4 
  836.          Caption         =   "User's ID's From Every Room Bots Are In!!"
  837.          Height          =   5055
  838.          Left            =   -74880
  839.          TabIndex        =   44
  840.          Top             =   480
  841.          Width           =   3495
  842.          Begin VB.CommandButton Command4 
  843.             Caption         =   "Kill Duplicates"
  844.             Height          =   255
  845.             Left            =   120
  846.             TabIndex        =   48
  847.             Top             =   4680
  848.             Width           =   1695
  849.          End
  850.          Begin VB.CommandButton Command29 
  851.             Caption         =   "Clear All"
  852.             Height          =   495
  853.             Left            =   2520
  854.             TabIndex        =   47
  855.             Top             =   4440
  856.             Width           =   855
  857.          End
  858.          Begin VB.CommandButton Command16 
  859.             Caption         =   "Save Room/s Users"
  860.             Height          =   255
  861.             Left            =   120
  862.             TabIndex        =   46
  863.             Top             =   4440
  864.             Width           =   1695
  865.          End
  866.          Begin VB.ListBox List5 
  867.             Height          =   4050
  868.             Left            =   120
  869.             TabIndex        =   45
  870.             ToolTipText     =   "Double Click to Remove 1"
  871.             Top             =   240
  872.             Width           =   3255
  873.          End
  874.          Begin VB.Label Label1 
  875.             Alignment       =   2  'Center
  876.             BackStyle       =   0  'Transparent
  877.             Caption         =   "0"
  878.             Height          =   255
  879.             Left            =   1800
  880.             TabIndex        =   49
  881.             Top             =   4680
  882.             Width           =   735
  883.          End
  884.       End
  885.       Begin VB.Frame Frame1 
  886.          Caption         =   "Rooms For Bots To Join : 0"
  887.          Height          =   4575
  888.          Left            =   -74880
  889.          TabIndex        =   36
  890.          Top             =   480
  891.          Width           =   3735
  892.          Begin VB.CommandButton Command28 
  893.             Caption         =   "ROOMS"
  894.             Height          =   375
  895.             Left            =   2520
  896.             TabIndex        =   43
  897.             Top             =   3600
  898.             Width           =   1095
  899.          End
  900.          Begin VB.CommandButton Command27 
  901.             Caption         =   "Load List"
  902.             Height          =   375
  903.             Left            =   120
  904.             TabIndex        =   42
  905.             Top             =   4080
  906.             Width           =   1095
  907.          End
  908.          Begin VB.CommandButton Command25 
  909.             Caption         =   "Clear All"
  910.             Height          =   375
  911.             Left            =   2520
  912.             TabIndex        =   41
  913.             Top             =   4080
  914.             Width           =   1095
  915.          End
  916.          Begin VB.CommandButton Command22 
  917.             Caption         =   "^^ Add To RoomsList^^"
  918.             Height          =   375
  919.             Left            =   120
  920.             TabIndex        =   40
  921.             Top             =   3600
  922.             Width           =   2295
  923.          End
  924.          Begin VB.CommandButton Command21 
  925.             Caption         =   "Save List"
  926.             Height          =   375
  927.             Left            =   1320
  928.             TabIndex        =   39
  929.             Top             =   4080
  930.             Width           =   1095
  931.          End
  932.          Begin VB.TextBox Text20 
  933.             Height          =   315
  934.             Left            =   120
  935.             MaxLength       =   50
  936.             TabIndex        =   38
  937.             Text            =   "RoomName2Join:12"
  938.             Top             =   3240
  939.             Width           =   3495
  940.          End
  941.          Begin VB.ListBox List3 
  942.             Height          =   3000
  943.             ItemData        =   "Form1.frx":61C7
  944.             Left            =   120
  945.             List            =   "Form1.frx":61C9
  946.             TabIndex        =   37
  947.             ToolTipText     =   "Double Click to Remove 1"
  948.             Top             =   240
  949.             Width           =   3495
  950.          End
  951.       End
  952.       Begin VB.Frame FrameSpam 
  953.          Caption         =   "Spam Messages List : 0"
  954.          Height          =   4575
  955.          Left            =   -71040
  956.          TabIndex        =   29
  957.          Top             =   480
  958.          Width           =   7215
  959.          Begin VB.CommandButton Command33 
  960.             Caption         =   "^^ Load Spam Messages ^^"
  961.             Height          =   375
  962.             Left            =   2760
  963.             TabIndex        =   35
  964.             Top             =   4080
  965.             Width           =   2295
  966.          End
  967.          Begin VB.CommandButton Command32 
  968.             Caption         =   "Save List"
  969.             Height          =   375
  970.             Left            =   5160
  971.             TabIndex        =   34
  972.             Top             =   4080
  973.             Width           =   975
  974.          End
  975.          Begin VB.CommandButton Command19 
  976.             Caption         =   "^Add To Spam Messages List^"
  977.             Height          =   375
  978.             Left            =   120
  979.             TabIndex        =   33
  980.             Top             =   4080
  981.             Width           =   2535
  982.          End
  983.          Begin VB.CommandButton Command20 
  984.             Caption         =   "Clear All"
  985.             Height          =   375
  986.             Left            =   6240
  987.             TabIndex        =   32
  988.             Top             =   4080
  989.             Width           =   855
  990.          End
  991.          Begin VB.TextBox Text14 
  992.             Height          =   285
  993.             Left            =   120
  994.             MaxLength       =   150
  995.             TabIndex        =   31
  996.             Text            =   "Spam Message To Add Here"
  997.             Top             =   3720
  998.             Width           =   6975
  999.          End
  1000.          Begin VB.ListBox List1 
  1001.             Height          =   3420
  1002.             ItemData        =   "Form1.frx":61CB
  1003.             Left            =   120
  1004.             List            =   "Form1.frx":61CD
  1005.             TabIndex        =   30
  1006.             ToolTipText     =   "DOUBLE CLICK: Remove From Spam Filter List"
  1007.             Top             =   240
  1008.             Width           =   6975
  1009.          End
  1010.       End
  1011.       Begin VB.CommandButton Command24 
  1012.          Caption         =   "Load Vox For Current Chat Bot (Multi Vox's)"
  1013.          Height          =   330
  1014.          Left            =   -67680
  1015.          TabIndex        =   28
  1016.          Top             =   480
  1017.          Width           =   3855
  1018.       End
  1019.       Begin VB.Frame Frame6 
  1020.          Caption         =   "CHAT  (Here you can see chat, and chat back, to the chatroom of a Bot you make the Chatbot)"
  1021.          Height          =   4695
  1022.          Left            =   -74880
  1023.          TabIndex        =   19
  1024.          Top             =   840
  1025.          Width           =   11055
  1026.          Begin VB.CheckBox Check6 
  1027.             Caption         =   "No INF Tag with Chat Messages"
  1028.             Height          =   495
  1029.             Left            =   120
  1030.             TabIndex        =   105
  1031.             Top             =   4080
  1032.             Width           =   1695
  1033.          End
  1034.          Begin VB.CheckBox Check3 
  1035.             Caption         =   "YF Mode All Other Bots in Rooms"
  1036.             Height          =   375
  1037.             Left            =   120
  1038.             TabIndex        =   93
  1039.             ToolTipText     =   "Blocks all Incommign Data to Other Bots in Room"
  1040.             Top             =   1080
  1041.             Width           =   1695
  1042.          End
  1043.          Begin VB.CheckBox Check2 
  1044.             Caption         =   "YF Mode Chat-Bot"
  1045.             Height          =   255
  1046.             Left            =   120
  1047.             TabIndex        =   92
  1048.             ToolTipText     =   "Blocks All Data to Set Chat Bot"
  1049.             Top             =   720
  1050.             Width           =   1695
  1051.          End
  1052.          Begin VB.CheckBox Check1 
  1053.             Caption         =   "Chat Text Block !"
  1054.             Height          =   255
  1055.             Left            =   120
  1056.             TabIndex        =   91
  1057.             Top             =   360
  1058.             Width           =   1575
  1059.          End
  1060.          Begin VB.Frame Frame8 
  1061.             Caption         =   "Spam Controls!!"
  1062.             Height          =   2535
  1063.             Left            =   120
  1064.             TabIndex        =   85
  1065.             Top             =   1560
  1066.             Width           =   1695
  1067.             Begin VB.CommandButton Command12 
  1068.                Caption         =   "Spamming ON"
  1069.                Height          =   375
  1070.                Left            =   120
  1071.                TabIndex        =   88
  1072.                Top             =   360
  1073.                Width           =   1335
  1074.             End
  1075.             Begin VB.CommandButton Command13 
  1076.                Caption         =   "Spamming OFF"
  1077.                Height          =   375
  1078.                Left            =   120
  1079.                TabIndex        =   87
  1080.                Top             =   960
  1081.                Width           =   1335
  1082.             End
  1083.             Begin VB.TextBox Text4 
  1084.                Alignment       =   2  'Center
  1085.                Height          =   315
  1086.                Left            =   1080
  1087.                TabIndex        =   86
  1088.                Text            =   "60"
  1089.                ToolTipText     =   "Amount of Seconds to Pause Between Spamming Messages to Multiple Rooms!"
  1090.                Top             =   1440
  1091.                Width           =   375
  1092.             End
  1093.             Begin VB.Label Label13 
  1094.                Alignment       =   2  'Center
  1095.                BackStyle       =   0  'Transparent
  1096.                Caption         =   "Dont Run Below 30 To Avoid Chat Ban"
  1097.                Height          =   495
  1098.                Left            =   120
  1099.                TabIndex        =   104
  1100.                Top             =   1920
  1101.                Width           =   1455
  1102.             End
  1103.             Begin VB.Label Label3 
  1104.                Alignment       =   2  'Center
  1105.                BackStyle       =   0  'Transparent
  1106.                Caption         =   "Spam is OFF"
  1107.                Height          =   255
  1108.                Left            =   120
  1109.                TabIndex        =   90
  1110.                Top             =   720
  1111.                Width           =   1335
  1112.             End
  1113.             Begin VB.Label Label5 
  1114.                Alignment       =   2  'Center
  1115.                BackStyle       =   0  'Transparent
  1116.                Caption         =   "Spam Delay: (Secs)"
  1117.                Height          =   495
  1118.                Left            =   120
  1119.                TabIndex        =   89
  1120.                Top             =   1440
  1121.                Width           =   975
  1122.             End
  1123.          End
  1124.          Begin VB.TextBox Text8 
  1125.             Alignment       =   2  'Center
  1126.             Height          =   315
  1127.             Left            =   8520
  1128.             TabIndex        =   24
  1129.             Top             =   4200
  1130.             Width           =   2415
  1131.          End
  1132.          Begin VB.ListBox List8 
  1133.             Height          =   1950
  1134.             Left            =   8520
  1135.             TabIndex        =   23
  1136.             ToolTipText     =   "Single Click To Select Victim, Double to Remove Name From List"
  1137.             Top             =   2280
  1138.             Width           =   2415
  1139.          End
  1140.          Begin VB.ListBox List7 
  1141.             Height          =   1530
  1142.             Left            =   8520
  1143.             TabIndex        =   22
  1144.             Top             =   480
  1145.             Width           =   2415
  1146.          End
  1147.          Begin VB.CommandButton Command8 
  1148.             Caption         =   "Send"
  1149.             Height          =   375
  1150.             Left            =   7680
  1151.             TabIndex        =   21
  1152.             Top             =   4200
  1153.             Width           =   735
  1154.          End
  1155.          Begin VB.TextBox Text6 
  1156.             Height          =   315
  1157.             Left            =   1920
  1158.             TabIndex        =   20
  1159.             Text            =   "DoubleClick to Clear! Push Enter To Send Faster!"
  1160.             Top             =   4200
  1161.             Width           =   5655
  1162.          End
  1163.          Begin RichTextLib.RichTextBox Text177 
  1164.             Height          =   3855
  1165.             Left            =   1920
  1166.             TabIndex        =   25
  1167.             ToolTipText     =   "Double Click To Clear!"
  1168.             Top             =   240
  1169.             Width           =   6495
  1170.             _ExtentX        =   11456
  1171.             _ExtentY        =   6800
  1172.             _Version        =   393217
  1173.             Enabled         =   -1  'True
  1174.             ScrollBars      =   2
  1175.             TextRTF         =   $"Form1.frx":61CF
  1176.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1177.                Name            =   "Arial"
  1178.                Size            =   9.75
  1179.                Charset         =   0
  1180.                Weight          =   400
  1181.                Underline       =   0   'False
  1182.                Italic          =   0   'False
  1183.                Strikethrough   =   0   'False
  1184.             EndProperty
  1185.          End
  1186.          Begin VB.Label Label9 
  1187.             Alignment       =   2  'Center
  1188.             BackStyle       =   0  'Transparent
  1189.             Caption         =   "Users On Yahoo In Current Room"
  1190.             Height          =   255
  1191.             Left            =   8400
  1192.             TabIndex        =   27
  1193.             Top             =   2040
  1194.             Width           =   2655
  1195.          End
  1196.          Begin VB.Label Label7 
  1197.             Alignment       =   2  'Center
  1198.             Caption         =   "Users On Client In Current Room"
  1199.             Height          =   255
  1200.             Left            =   8520
  1201.             TabIndex        =   26
  1202.             Top             =   240
  1203.             Width           =   2415
  1204.          End
  1205.       End
  1206.       Begin MSComctlLib.ListView ListView1 
  1207.          Height          =   3015
  1208.          Left            =   120
  1209.          TabIndex        =   77
  1210.          ToolTipText     =   $"Form1.frx":6246
  1211.          Top             =   480
  1212.          Width           =   2115
  1213.          _ExtentX        =   3731
  1214.          _ExtentY        =   5318
  1215.          LabelEdit       =   1
  1216.          LabelWrap       =   -1  'True
  1217.          HideSelection   =   0   'False
  1218.          HideColumnHeaders=   -1  'True
  1219.          _Version        =   393217
  1220.          SmallIcons      =   "ImageList1"
  1221.          ForeColor       =   -2147483640
  1222.          BackColor       =   -2147483643
  1223.          BorderStyle     =   1
  1224.          Appearance      =   1
  1225.          NumItems        =   0
  1226.       End
  1227.       Begin RichTextLib.RichTextBox Text555 
  1228.          Height          =   4695
  1229.          Left            =   -74880
  1230.          TabIndex        =   102
  1231.          ToolTipText     =   "Double Click To Clear!"
  1232.          Top             =   480
  1233.          Width           =   11055
  1234.          _ExtentX        =   19500
  1235.          _ExtentY        =   8281
  1236.          _Version        =   393217
  1237.          Enabled         =   -1  'True
  1238.          ScrollBars      =   2
  1239.          TextRTF         =   $"Form1.frx":6376
  1240.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1241.             Name            =   "Arial"
  1242.             Size            =   8.25
  1243.             Charset         =   0
  1244.             Weight          =   400
  1245.             Underline       =   0   'False
  1246.             Italic          =   0   'False
  1247.             Strikethrough   =   0   'False
  1248.          EndProperty
  1249.       End
  1250.       Begin VB.Label Label14 
  1251.          Alignment       =   1  'Right Justify
  1252.          BackStyle       =   0  'Transparent
  1253.          Caption         =   "YMSG: "
  1254.          BeginProperty Font 
  1255.             Name            =   "Arial"
  1256.             Size            =   9
  1257.             Charset         =   0
  1258.             Weight          =   700
  1259.             Underline       =   0   'False
  1260.             Italic          =   0   'False
  1261.             Strikethrough   =   0   'False
  1262.          EndProperty
  1263.          Height          =   255
  1264.          Left            =   2280
  1265.          TabIndex        =   108
  1266.          Top             =   1200
  1267.          Width           =   735
  1268.       End
  1269.       Begin VB.Label Label12 
  1270.          Alignment       =   2  'Center
  1271.          BorderStyle     =   1  'Fixed Single
  1272.          Caption         =   "YF"
  1273.          BeginProperty Font 
  1274.             Name            =   "Palatino Linotype"
  1275.             Size            =   50.25
  1276.             Charset         =   0
  1277.             Weight          =   700
  1278.             Underline       =   0   'False
  1279.             Italic          =   0   'False
  1280.             Strikethrough   =   0   'False
  1281.          EndProperty
  1282.          Height          =   1455
  1283.          Left            =   2400
  1284.          TabIndex        =   103
  1285.          Top             =   4080
  1286.          Width           =   1335
  1287.       End
  1288.       Begin VB.Label Label16 
  1289.          Alignment       =   2  'Center
  1290.          Caption         =   "Debugging will not be Processed For Chat Bot if in Gawd Mode, and Same for if Gawd moding all other bots in Rooms!!"
  1291.          Height          =   255
  1292.          Left            =   -73560
  1293.          TabIndex        =   101
  1294.          Top             =   5280
  1295.          Width           =   8655
  1296.       End
  1297.       Begin VB.Label Label15 
  1298.          Alignment       =   2  'Center
  1299.          Caption         =   "Working Bots List"
  1300.          BeginProperty Font 
  1301.             Name            =   "Palatino Linotype"
  1302.             Size            =   11.25
  1303.             Charset         =   0
  1304.             Weight          =   700
  1305.             Underline       =   -1  'True
  1306.             Italic          =   0   'False
  1307.             Strikethrough   =   0   'False
  1308.          EndProperty
  1309.          Height          =   375
  1310.          Left            =   120
  1311.          TabIndex        =   98
  1312.          Top             =   3960
  1313.          Width           =   2175
  1314.       End
  1315.       Begin VB.Label Label6 
  1316.          BackStyle       =   0  'Transparent
  1317.          Caption         =   "Chat Bot Selected:"
  1318.          ForeColor       =   &H00000000&
  1319.          Height          =   255
  1320.          Left            =   -74880
  1321.          TabIndex        =   84
  1322.          Top             =   480
  1323.          Width           =   1335
  1324.       End
  1325.       Begin VB.Label Label8 
  1326.          BackStyle       =   0  'Transparent
  1327.          Caption         =   "Bot Is In Room:"
  1328.          ForeColor       =   &H00000000&
  1329.          Height          =   255
  1330.          Left            =   -71160
  1331.          TabIndex        =   83
  1332.          Top             =   480
  1333.          Width           =   1095
  1334.       End
  1335.       Begin VB.Label Label4 
  1336.          Alignment       =   2  'Center
  1337.          BackStyle       =   0  'Transparent
  1338.          Caption         =   $"Form1.frx":63ED
  1339.          Height          =   495
  1340.          Left            =   -74880
  1341.          TabIndex        =   78
  1342.          Top             =   5160
  1343.          Width           =   11055
  1344.       End
  1345.    End
  1346.    Begin VB.Label YahoozFynestLabel 
  1347.       BackStyle       =   0  'Transparent
  1348.       Height          =   135
  1349.       Left            =   0
  1350.       TabIndex        =   106
  1351.       Top             =   10200
  1352.       Width           =   135
  1353.    End
  1354. End
  1355. Attribute VB_Name = "Form1"
  1356. Attribute VB_GlobalNameSpace = False
  1357. Attribute VB_Creatable = False
  1358. Attribute VB_PredeclaredId = True
  1359. Attribute VB_Exposed = False
  1360. 'Coded By Yahooz Fynest in 24 hours!!
  1361. 'Dont Ripped My Prog All will know!
  1362. 'Welcome to Study it, and learn how it works, then try make your own..
  1363.  
  1364. 'Remember Yahooz Fynest was First to make a Program such as this Even Exist!
  1365. 'Multi Room Joining, Chat support, INF Tag Processing, Names Collecting, Illy sorting with Names Collecting..
  1366. 'Debugging of Incomming Packet, Stats for All the User comming an going from rooms, specifying the Room an Username's.
  1367. 'Multi Vox's, Can Load a Vox for any Bot in any Room at Any Time! And be Tuned into, 5 ChatRooms at the Same time!
  1368. 'Can DJ to Multiple Room, Chat by Text, and View Chat for 1 Bot and its Room at a Time!
  1369. 'Each Bot has individual Boot protection, And Auto Gawd Mode/YF Mode. And the Program alerts you which Bot from which room got attacked.
  1370. 'It gets a new smiley, and at anytime you can double click that gawd moded bot smiley to set back to normal!
  1371. 'Built in Spammer, with custom delay, Can have 50 bots in 50 Room, Spamming a Custom Spam list you are able to Load!!
  1372. 'Chat Block option to protect you if someone room lagg the Chat Bot for room your Viewing.
  1373. 'Easy one click another bots smiley thats in room to change chat bot, an view a different room instantly!
  1374. 'No one has made a Tool such as this before, Multi Room Data Handling, Protection, Multi Vox's
  1375. 'Hope this Released Example by myself is helpful for people to prehaps make some top line tools aswell in future, Enjoy!
  1376.  
  1377. Option Explicit
  1378. Dim i As Integer
  1379. Dim Jj As Integer
  1380. Dim dD As Integer
  1381. Dim PAckets As Integer
  1382. Dim Header As ColumnHeader, item As ListItem, X As Integer
  1383. Dim Vic As String
  1384. Private Const ENTER_KEY = 13
  1385. Dim IncomePacks(0 To 50) As String
  1386. Dim LoggedInBot(0 To 50) As Boolean
  1387.  
  1388. Private Sub Command10_Click()
  1389. List8.ListIndex = -1
  1390. Timer3 = True
  1391. End Sub
  1392.  
  1393. Private Sub Command11_Click()
  1394. On Error Resume Next
  1395. For i = 1 To Text25.Text
  1396. If ListView1.ListItems(i).SmallIcon = 7 Then
  1397. ListView1.ListItems(i).SmallIcon = 1
  1398. VoiceKey(i) = ""
  1399. RoomKey(i) = ""
  1400. RoomJoinedd(i) = ""
  1401. Pause (0.1)
  1402. DoEvents
  1403. End If
  1404. Next i
  1405. End Sub
  1406.  
  1407. Private Sub Command1_Click()
  1408. On Error Resume Next
  1409. If Command1.Caption = "Load Bots" Then
  1410. Dim LTD As String, F As Variant, X As Integer
  1411. Set Header = ListView1.ColumnHeaders.Add(, , "", 300)
  1412. Set Header = ListView1.ColumnHeaders.Add(, , "YBots", 3000)
  1413. Set Header = ListView1.ColumnHeaders.Add(, , "Y!PW")
  1414. F = FreeFile
  1415. With CommonDialog1
  1416. .filename = ""
  1417. .DialogTitle = "Load Bots"
  1418. .Filter = "All Supported Types|*.txt"
  1419. .ShowOpen
  1420. If .filename = "" Then Exit Sub
  1421. Open .filename For Input As #F
  1422. While Not EOF(1)
  1423. Input #1, LTD
  1424. F = Split(LTD, ":")
  1425.            
  1426. If X < 50 Then
  1427. Set item = ListView1.ListItems.Add(, , , , 2)
  1428. item.SubItems(1) = F(0)
  1429. item.SubItems(2) = F(1)
  1430. X = X + 1
  1431. Combo1.AddItem X
  1432. Status.Panels(1).Text = "Bots Loaded : " & X
  1433. DoEvents
  1434. End If
  1435. Wend
  1436. Close #1
  1437. ListView1.View = lvwReport
  1438. End With
  1439. Combo1.Text = "1"
  1440. Text25.Text = X
  1441. Command1.Caption = "Clear"
  1442. Else
  1443. Combo1.RemoveItem (X)
  1444. Combo1.Clear
  1445. Combo1.Text = "#Bots"
  1446. ListView1.ListItems.Clear
  1447. Command1.Caption = "Load Bots"
  1448. End If
  1449. End Sub
  1450.  
  1451. Private Sub Command12_Click()
  1452. If Status.Panels(7) = "0" Then List1.ListIndex = -1
  1453. Timer2 = True
  1454. Label3.Caption = "Spam is ON"
  1455. End Sub
  1456.  
  1457. Private Sub Command13_Click()
  1458. Timer2 = False
  1459. Label3.Caption = "Spam is OFF"
  1460. End Sub
  1461.  
  1462. Private Sub Command14_Click()
  1463. On Error Resume Next
  1464. 'Only need to Close the Sockets to DC ID's an Make them Leave Rooms!
  1465. Command5.Enabled = False
  1466. List4.Clear
  1467. Text15.Text = "1"
  1468. Command2.Caption = "LoG In Bots"
  1469. Status.Panels(1) = "Status: All DC'd, All LeaftRooms"
  1470. For i = 1 To Text25.Text
  1471. ListView1.ListItems(i).SmallIcon = 2
  1472. socket(i).Close
  1473. Unload socket(i)
  1474. LoggedInBot(i) = False
  1475. VoiceKey(i) = ""
  1476. RoomKey(i) = ""
  1477. RoomJoinedd(i) = ""
  1478. Status.Panels(3).Text = Status.Panels(3).Text - 1
  1479. Next i
  1480. Pause (0.2)
  1481. List2.Clear
  1482. Status.Panels(3) = "0"
  1483. Status.Panels(5) = "0"
  1484. Status.Panels(7) = "0"
  1485. End Sub
  1486.  
  1487. Private Sub Command15_Click()
  1488. Call SaveList(c, List9)
  1489. End Sub
  1490.  
  1491. Private Sub Command16_Click()
  1492. Call SaveList(c, List5)
  1493. End Sub
  1494.  
  1495. Private Sub Command17_Click()
  1496. List9.Clear
  1497. List10.Clear
  1498. End Sub
  1499.  
  1500. Private Sub Command18_Click()
  1501. Call SaveList(c, List10)
  1502. End Sub
  1503.  
  1504. Private Sub Command19_Click()
  1505. List1.AddItem Text14.Text
  1506. Text14.Text = ""
  1507. End Sub
  1508.  
  1509. Private Sub Command2_Click()
  1510. On Error Resume Next
  1511. If Combo1.Text = "Bots" Then
  1512. MsgBox "Select amount to Login!", , "YF"
  1513. Exit Sub
  1514. End If
  1515. Command2.Caption = "LoGin OffLine"
  1516. Dim i As Integer
  1517. For i = 1 To Combo1.Text
  1518. If ListView1.ListItems(i).SmallIcon = 2 Then
  1519. Load socket(i)
  1520. YahooID(i) = ListView1.ListItems(i).SubItems(1)
  1521. Password(i) = ListView1.ListItems(i).SubItems(2)
  1522. DoEvents
  1523. LoggedInBot(i) = False
  1524. socket(i).Close
  1525. socket(i).Connect Combo2.Text, 5050
  1526. DoEvents
  1527. If Combo2.ListIndex = Combo2.ListCount - 1 Then
  1528. Combo2.ListIndex = 0
  1529. Else
  1530. Combo2.ListIndex = Combo2.ListIndex + 1
  1531. End If
  1532. DoEvents
  1533. Pause (1)
  1534. Pause (Text3.Text)
  1535. DoEvents
  1536. End If
  1537. DoEvents
  1538. Next i
  1539. DoEvents
  1540. Pause (2)
  1541. Status.Panels(1).Text = "Bots Logged In!!"
  1542. Status.Panels(3).Text = List4.ListCount
  1543. Command5.Enabled = True
  1544. End Sub
  1545.  
  1546. Private Sub Command20_Click()
  1547. List1.Clear
  1548. End Sub
  1549.  
  1550. Private Sub Command21_Click()
  1551. Call SaveList(c, List3)
  1552. End Sub
  1553.  
  1554. Private Sub Command22_Click()
  1555. List3.AddItem Text20.Text
  1556. End Sub
  1557.  
  1558. Private Sub Command23_Click()
  1559. Call KillDupes(List6)
  1560. End Sub
  1561.  
  1562. Private Sub Command24_Click()
  1563. On Error Resume Next
  1564. Dim Rky As String
  1565. Dim vcky As String
  1566. Dim VcID As String
  1567. Dim vcrm As String
  1568. Dim i As Integer
  1569. For i = 1 To Form1.Text25.Text
  1570. If Form1.ListView1.ListItems(i).SmallIcon = 4 Then
  1571. Rky = RoomKey(i)
  1572. vcky = VoiceKey(i)
  1573. GoTo oke
  1574. End If
  1575. Next i
  1576. MsgBox "You have no Room Chat Bot Selected!", , "YF"
  1577. Exit Sub
  1578. oke:
  1579. VcID = Text5.Text
  1580. vcrm = Text7.Text
  1581. If Rky = "" Then Exit Sub
  1582. If vcky = "" Then Exit Sub
  1583. If VcID = "" Then Exit Sub
  1584. If vcrm = "" Then Exit Sub
  1585. Dim Vox As Integer
  1586. Vox = FindVox(VcID)
  1587. If Vox <= 0 Then
  1588. Set VCForm = Forms.Add("Form3")
  1589. Load VCForm
  1590. VCForm.Tag = VcID
  1591. VCForm.Text2.Text = VcID
  1592. VCForm.Text3.Text = vcrm
  1593. VCForm.Text5.Text = Rky
  1594. VCForm.Text6.Text = vcky
  1595. VCForm.Caption = "Vox: " & VcID
  1596. VCForm.Show
  1597. Set VCForm = Nothing
  1598. DoEvents
  1599. Exit Sub
  1600. End If
  1601. Forms(Vox).Show
  1602. End Sub
  1603.  
  1604. Private Sub Command25_Click()
  1605. List3.Clear
  1606. End Sub
  1607.  
  1608. Private Sub Command26_Click()
  1609. Text555.Text = ""
  1610. End Sub
  1611.  
  1612. Private Sub Command27_Click()
  1613. Call LoadList(c, List3)
  1614. End Sub
  1615.  
  1616. Private Sub Command28_Click()
  1617. Form4.Show
  1618. End Sub
  1619.  
  1620. Private Sub Command29_Click()
  1621. List5.Clear
  1622. End Sub
  1623.  
  1624. Private Sub Command3_Click()
  1625. Text17.Text = ""
  1626. End Sub
  1627.  
  1628. Private Sub Command30_Click()
  1629. Call SaveList(c, List6)
  1630. End Sub
  1631.  
  1632. Private Sub Command31_Click()
  1633. List6.Clear
  1634. End Sub
  1635.  
  1636. Private Sub Command32_Click()
  1637. Call SaveList(c, List1)
  1638. End Sub
  1639.  
  1640. Private Sub Command33_Click()
  1641. Call LoadList(c, List1)
  1642. End Sub
  1643.  
  1644. Private Sub Command4_Click()
  1645. Call KillDupes(List5)
  1646. End Sub
  1647.  
  1648. Private Sub Command5_Click()
  1649. On Error GoTo Error
  1650. If Status.Panels(5) = "0" Then List3.ListIndex = -1
  1651. For i = 1 To Combo1.Text
  1652. If ListView1.ListItems(i).SmallIcon = 1 Then
  1653. List3.ListIndex = List3.ListIndex + 1
  1654. ListView1.ListItems(i).SmallIcon = 7
  1655. Form1.Text28.Text = "2"
  1656. Status.Panels(1).Text = "Status:Joining Room"
  1657. VoiceKey(i) = ""
  1658. RoomKey(i) = ""
  1659. RoomJoinedd(i) = Form1.Text1.Text
  1660. socket(i).SendData JoinRoom(YahooID(i))
  1661. DoEvents
  1662. Exit Sub
  1663. End If
  1664. If ListView1.ListItems(i).SmallIcon = 7 Then
  1665. List3.ListIndex = List3.ListIndex + 1
  1666. Form1.Text28.Text = "2"
  1667. Status.Panels(1).Text = "Status:Joining Room"
  1668. VoiceKey(i) = ""
  1669. RoomKey(i) = ""
  1670. RoomJoinedd(i) = Form1.Text1.Text
  1671. socket(i).SendData JoinRoom(YahooID(i))
  1672. DoEvents
  1673. Exit Sub
  1674. End If
  1675. Next i
  1676. MsgBox "There No More Bots Logged In To Join The Rooms!!", , "No Bots"
  1677. Exit Sub
  1678. Error:
  1679. MsgBox "There No More Rooms On Rooms to Join List to Join!", , "No Rooms"
  1680. Exit Sub
  1681. End Sub
  1682.  
  1683. Private Sub Command6_Click()
  1684. Call SaveList(c, List4)
  1685. End Sub
  1686.  
  1687. Private Sub Command7_Click()
  1688. List4.Clear
  1689. End Sub
  1690.  
  1691. Private Sub Command8_Click()
  1692. On Error Resume Next
  1693. For i = 1 To Text25.Text
  1694. If ListView1.ListItems(i).SmallIcon = 4 Then
  1695. socket(i).SendData SendChat(YahooID(i), RoomJoinedd(i), Text18.Text, Text6.Text)
  1696. Text177.SelLength = 0
  1697. Text177.SelStart = Len(Text177)
  1698. Text177.SelBold = True: Text177.SelColor = vbBlue
  1699. Text177.SelText = YahooID(i) & ": "
  1700. Text177.SelBold = False: Text177.SelColor = vbBlack
  1701. Text177.SelText = Text6.Text & vbNewLine
  1702. Text177.SelStart = Len(Text177)
  1703. DoEvents
  1704. Text6.Text = ""
  1705. Text6.SetFocus
  1706. Exit Sub
  1707. End If
  1708. Next i
  1709. DoEvents
  1710. End Sub
  1711.  
  1712. Private Sub Form_Load()
  1713. Combo2.Text = "scsa.msg.yahoo.com"
  1714. Combo3.Text = "15"
  1715. MsgBox "Made in Tribute to Dazza aka Stooge the maker of Y-Hook Client and Owner of the Yhook forum, who Claims that i Yahooz Fynest am a Ripper, And cannot Code Ymsg parsing or a Client for MYSELF From Scratch... Well this right here Mr Dazza is, multiple rooms, multiple voices, amoungst the rest it can do. Is a Creative Idea i had, and has NOT been done before, so impossible to have been ripped! I made this V1.0 in roughly 24 hours... Over 2 days. Special Thanks to Yah-shit's DSP, The Bro Roomy, My Wigga EliteKris, And my boy Crazy owner of www.yahoo-load.com for there time testing when asked of them, to help me make this quickly and not spend all my time finding the lil things to make work right..!!! ..::MULTI ROOM/MULTI VOX's/MULTIPLE SPAMMING/NAMES COLLECTING::.. ", , "Dazza the maker of Y-Hook is a Lame Hater!"
  1716. End Sub
  1717.  
  1718. Private Sub List1_DblClick()
  1719. Call RemoveSelected(List1)
  1720. End Sub
  1721.  
  1722. Private Sub List1_Click()
  1723. SpamText.Text = List1
  1724. Text14.Text = List1
  1725. End Sub
  1726.  
  1727. Private Sub List10_DblClick()
  1728. Call RemoveSelected(List9)
  1729. End Sub
  1730.  
  1731. Private Sub List3_DblClick()
  1732. Call RemoveSelected(List3)
  1733. End Sub
  1734.  
  1735. Private Sub List3_Click()
  1736. Text1.Text = List3
  1737. Text20.Text = List3
  1738. End Sub
  1739.  
  1740. Private Sub List5_DblClick()
  1741. Call RemoveSelected(List5)
  1742. End Sub
  1743.  
  1744. Private Sub List6_DblClick()
  1745. Call RemoveSelected(List6)
  1746. End Sub
  1747.  
  1748. Private Sub List7_Click()
  1749. Text8.Text = List7
  1750. End Sub
  1751.  
  1752. Private Sub List8_Click()
  1753. Text8.Text = List8.Text
  1754. End Sub
  1755.  
  1756. Private Sub List8_DblClick()
  1757. Call RemoveSelected(List8)
  1758. End Sub
  1759.  
  1760. Private Sub List9_DblClick()
  1761. Call RemoveSelected(List9)
  1762. End Sub
  1763.  
  1764. Private Sub ListView1_DblClick()
  1765. On Error Resume Next
  1766. If ListView1.SelectedItem.SmallIcon = 4 Then
  1767. ListView1.SelectedItem.SmallIcon = 3
  1768. Form1.Text5.Text = "Not Processing Chat"
  1769. Form1.Text7.Text = "Not Processing Chat"
  1770. Form1.Text177.SelLength = 0
  1771. Form1.Text177.SelStart = Len(Form1.Text177)
  1772. Form1.Text177.SelBold = True: Form1.Text177.SelColor = &H404040
  1773. Form1.Text177.SelText = "Chat Recieving Ended! :"
  1774. Form1.Text177.SelBold = False: Form1.Text177.SelColor = vbBlack
  1775. Form1.Text177.SelText = "No Chat Bot Selected" & vbNewLine
  1776. DoEvents
  1777. Exit Sub
  1778. End If
  1779. If ListView1.SelectedItem.SmallIcon = 8 Then
  1780. ListView1.SelectedItem.SmallIcon = 3
  1781. Form1.Text17.SelLength = 0
  1782. Form1.Text17.SelStart = Len(Form1.Text17)
  1783. Form1.Text17.SelBold = True: Form1.Text17.SelColor = vbGreen
  1784. Form1.Text17.SelText = "Gawd Mode Disabled :"
  1785. Form1.Text17.SelBold = False: Form1.Text17.SelColor = vbBlack
  1786. Form1.Text17.SelText = "Bot Now Processing Packets Again!" & vbNewLine
  1787. DoEvents
  1788. Exit Sub
  1789. End If
  1790. End Sub
  1791.  
  1792. Private Sub ListView1_Click()
  1793. On Error Resume Next
  1794. Dim Q As Integer
  1795. For Q = 1 To Text25.Text
  1796. If ListView1.ListItems(Q).SmallIcon = 8 Then
  1797. Exit Sub
  1798. End If
  1799. If ListView1.ListItems(Q).SmallIcon = 4 Then
  1800. ListView1.ListItems(Q).SmallIcon = 3
  1801. End If
  1802. Next Q
  1803. DoEvents
  1804. If ListView1.SelectedItem.SmallIcon = 3 Then
  1805. ListView1.SelectedItem.SmallIcon = 4
  1806. Form1.Text5.Text = ListView1.SelectedItem.SubItems(1)
  1807. For Q = 1 To Text25.Text
  1808. If ListView1.ListItems(Q).SmallIcon = 4 Then
  1809. List7.Clear
  1810. List8.Clear
  1811. Form1.Text7.Text = RoomJoinedd(Q)
  1812. Form1.Text177.SelLength = 0
  1813. Form1.Text177.SelStart = Len(Form1.Text177)
  1814. Form1.Text177.SelBold = True: Form1.Text177.SelColor = &H404040
  1815. Form1.Text177.SelText = "Now Chating with " & YahooID(Q) & " : "
  1816. Form1.Text177.SelBold = False: Form1.Text177.SelColor = vbBlack
  1817. Form1.Text177.SelText = "In " & RoomJoinedd(Q) & vbNewLine
  1818. DoEvents
  1819. End If
  1820. Next Q
  1821. Exit Sub
  1822. Else
  1823. MsgBox "You Must Select a Bot In a Room To Chat With!", , "YF"
  1824. Exit Sub
  1825. End If
  1826. End Sub
  1827.  
  1828. Private Sub BlockedString()
  1829. On Error Resume Next
  1830. Status.Panels(11) = Status.Panels(11) + 1
  1831. End Sub
  1832.  
  1833. Private Sub socket_Connect(Index As Integer)
  1834. socket(Index).SendData Get_Key(YahooID(Index))
  1835. End Sub
  1836.  
  1837. Private Sub bugs(data As String)
  1838. On Error Resume Next
  1839. If Len(Text555.Text) > 150000 Then Text555.Text = ""
  1840. Text555.Text = Text555.Text & vbCrLf & "[IN] - " & data & " " & vbCrLf
  1841. Text555.SelStart = Len(Text555.Text)
  1842. DoEvents
  1843. End Sub
  1844.  
  1845. Private Sub socket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  1846. On Error Resume Next
  1847. If ListView1.ListItems(Index).SmallIcon = 8 Then BlockedString: Exit Sub
  1848. If ListView1.ListItems(Index).SmallIcon = 3 And Check3.Value = 1 Then BlockedString: Exit Sub
  1849. If ListView1.ListItems(Index).SmallIcon = 4 And Check2.Value = 1 Then BlockedString: Exit Sub
  1850. socket(Index).GetData Buffer(Index)
  1851. Debug.Print Asc(Mid(Buffer(Index), 12, 1)) & " - " & Buffer(Index)
  1852. If Check4.Value = 1 Then
  1853. bugs Asc(Mid(Buffer(Index), 12, 1)) & " - " & Buffer(Index)
  1854. End If
  1855. FirstData Index, Buffer(Index)
  1856. Buffer(Index) = Empty
  1857. Exit Sub
  1858. End Sub
  1859.  
  1860. Public Sub FirstData(Index As Integer, BufferTuf As String)
  1861. On Error GoTo Buds
  1862. If ListView1.ListItems(Index).SmallIcon = 8 Then BlockedString: Exit Sub
  1863. If ListView1.ListItems(Index).SmallIcon = 3 And Check3.Value = 1 Then BlockedString: Exit Sub
  1864. If ListView1.ListItems(Index).SmallIcon = 4 And Check2.Value = 1 Then BlockedString: Exit Sub
  1865. Dim cstring As String
  1866. Dim H As Integer
  1867. Dim p As Integer
  1868. Status.Panels(9) = Status.Panels(9) + 1
  1869. IncomePacks(Index) = IncomePacks(Index) + 1
  1870. If ListView1.ListItems(Index).SmallIcon = 8 Then BlockedString: Exit Sub
  1871. If IncomePacks(Index) > 10 Then
  1872. If ListView1.ListItems(Index).SmallIcon = 3 Or ListView1.ListItems(Index).SmallIcon = 4 Then
  1873. If ListView1.ListItems(Index).SmallIcon = 8 Then BlockedString: Exit Sub
  1874. ListView1.ListItems(Index).SmallIcon = 8
  1875. Form1.Text17.SelLength = 0
  1876. Form1.Text17.SelStart = Len(Form1.Text17)
  1877. Form1.Text17.SelBold = True: Form1.Text17.SelColor = &H8000&
  1878. Form1.Text17.SelText = YahooID(Index) & " in " & RoomJoinedd(Index) & " Is Getting Booted: "
  1879. Form1.Text17.SelBold = False: Form1.Text17.SelColor = vbGreen
  1880. Form1.Text17.SelText = "Bot Now in Gawd Mode(Not Processing Packets)! You can Disable the Gawd Mode on the Bot by Double Clicking the Bot on Bot List!" & vbNewLine
  1881. DoEvents
  1882. Form1.Text177.SelLength = 0
  1883. Form1.Text177.SelStart = Len(Form1.Text177)
  1884. Form1.Text177.SelBold = True: Form1.Text177.SelColor = &H8000&
  1885. Form1.Text177.SelText = YahooID(Index) & " in " & RoomJoinedd(Index) & " Is Getting Booted: "
  1886. Form1.Text177.SelBold = False: Form1.Text177.SelColor = vbGreen
  1887. Form1.Text177.SelText = "Bot Now in Gawd Mode(Not Processing Packets)! You can Disable the Gawd Mode on the Bot by Double Clicking the Bot on Bot List!" & vbNewLine
  1888. DoEvents
  1889. BlockedString
  1890. BufferTuf = Empty
  1891. Exit Sub
  1892. End If
  1893. End If
  1894.  
  1895. Select Case Asc(Mid(BufferTuf, 12, 1))
  1896.  
  1897. Case Is = 87
  1898. cstring = Split(BufferTuf, "94└Ç")(1)
  1899. cstring = Split(cstring, "└Ç")(0)
  1900. Encrypt YahooID(Index), Password(Index), cstring, 1
  1901. socket(Index).SendData Log(YahooID(Index))
  1902. SessionKey(Index) = Mid(BufferTuf, 17, 4)
  1903. DoEvents
  1904. BufferTuf = Empty
  1905. Exit Sub
  1906.  
  1907. Case Is = 85
  1908. LoggedInBot(Index) = True
  1909. ListView1.ListItems(Index).SmallIcon = 1
  1910. Status.Panels(3) = Status.Panels(3) + 1
  1911. Status.Panels(1).Text = "Logged In:" & YahooID(Index)
  1912. LoopList YahooID(Index) & ":" & Password(Index), List4
  1913. List4.AddItem YahooID(Index) & ":" & Password(Index)
  1914. DoEvents
  1915. BufferTuf = Empty
  1916. Exit Sub
  1917.  
  1918. Case Is = 152
  1919. RoomJoining Index, BufferTuf
  1920. DoEvents
  1921. BufferTuf = Empty
  1922. Exit Sub
  1923.  
  1924. Case Is = 155
  1925. If ListView1.ListItems(Index).SmallIcon = 4 Then 'Chat bot only will doe this
  1926. RemoveUser BufferTuf, List8, RoomJoinedd(Index)
  1927. End If
  1928. DoEvents
  1929. BufferTuf = Empty
  1930. Exit Sub
  1931.  
  1932. End Select
  1933.  
  1934. IncommingData Index, BufferTuf
  1935. DoEvents
  1936. Buds:
  1937. BufferTuf = Empty
  1938. Exit Sub
  1939.  
  1940. End Sub
  1941.  
  1942. Public Sub RoomJoining(Index As Integer, BufferTuf As String)
  1943. On Error GoTo Buds
  1944. Dim Link As String, Cases As String
  1945.           
  1946. GetUsers Index, BufferTuf, List5, YahooID(Index), RoomJoinedd(Index)
  1947.        
  1948. If InStr(1, BufferTuf, "To help prevent spam") Then
  1949. Link = Split(BufferTuf, "http://ab.login")(1)
  1950. Link = Split(Link, ".jpg")(0)
  1951. Text2.Text = "http://ab.login" & Link & ".jpg"
  1952. Form2.WebBrowser1.Navigate Text2.Text
  1953. DoEvents
  1954. Form2.Show
  1955. Form2.Text1.Text = "Enter Captcha"
  1956. Form2.Text2.Text = "Captcha for " & YahooID(Index) & " to join " & RoomJoinedd(Index)
  1957. Form2.Caption = "Captcha for " & YahooID(Index)
  1958. Form2.TxtVerify.Text = ""
  1959. Form2.TxtVerify.SetFocus
  1960. BufferTuf = Empty
  1961. Exit Sub
  1962. End If
  1963.  
  1964. If Not InStr(1, BufferTuf, "    ", vbTextCompare) = 0 Then
  1965. If InStr(BufferTuf, "-35") Then
  1966. Form2.Text1.Text = "Room Full, Resend Captcha or Send Bot to Next Room!"
  1967. ListView1.ListItems(Index).SmallIcon = 1
  1968. End If
  1969. BufferTuf = Empty
  1970. Exit Sub
  1971.  
  1972. Else
  1973.  
  1974. If ListView1.ListItems(Index).SmallIcon = 7 Then
  1975. If InStr(BufferTuf, "129└Ç") And InStr(BufferTuf, "130└Ç") Then
  1976. If VoiceKey(Index) = "" Then VoiceKey(Index) = Parsing("130└Ç", "└Ç109└Ç", BufferTuf)
  1977. If RoomKey(Index) = "" Then RoomKey(Index) = Parsing("129└Ç", "└Ç130", BufferTuf)
  1978. End If
  1979. Status.Panels(1).Text = "Status:Joined Room"
  1980. Status.Panels(5) = Status.Panels(5) + 1
  1981. Form2.Text1.Text = "Joined Room!"
  1982. If RoomJoinedd(Index) = "" Then RoomJoinedd(Index) = Form1.Text1.Text
  1983. ListView1.ListItems(Index).SmallIcon = 3
  1984. Form1.Text17.SelLength = 0
  1985. Form1.Text17.SelStart = Len(Form1.Text17)
  1986. Form1.Text17.SelBold = True: Form1.Text17.SelColor = vbGreen
  1987. Form1.Text17.SelText = YahooID(Index)
  1988. Form1.Text17.SelBold = False: Form1.Text17.SelColor = vbBlack
  1989. Form1.Text17.SelText = " Joined " & RoomJoinedd(Index) & " (RKEY:" & RoomKey(Index) & " - Vkey:" & VoiceKey(Index) & ")" & vbNewLine
  1990. DoEvents
  1991. LoopList YahooID(Index) & " - " & RoomJoinedd(Index), List2
  1992. List2.AddItem YahooID(Index) & " - " & RoomJoinedd(Index)
  1993.  
  1994. Pause (1)
  1995.  
  1996. For i = 1 To Combo1.Text
  1997. If ListView1.ListItems(i).SmallIcon = 1 Then
  1998. On Error GoTo Dodge
  1999. List3.ListIndex = List3.ListIndex + 1
  2000. ListView1.ListItems(i).SmallIcon = 7
  2001. Status.Panels(1).Text = "Status:Joining Room"
  2002. socket(i).SendData JoinRoom(YahooID(i))
  2003. Pause 0.2
  2004. socket(i).SendData GotoRoom(YahooID(i), Form1.Text1.Text)
  2005. RoomJoinedd(i) = Form1.Text1.Text
  2006. Form2.Text1.Text = "Joining Next Bot To Next Room!"
  2007. DoEvents
  2008. BufferTuf = Empty
  2009. Exit Sub
  2010. End If
  2011. Next i
  2012. Form2.Text1.Text = "Finished Joining Bots!"
  2013.  
  2014. Pause (3)
  2015.  
  2016. Form2.Hide
  2017. BufferTuf = Empty
  2018. Exit Sub
  2019. Dodge:
  2020. Form2.Text1.Text = "Finished (No More Rooms In List To Join)"
  2021.  
  2022. Pause (3)
  2023.  
  2024. Form2.Hide
  2025. BufferTuf = Empty
  2026. Exit Sub
  2027. End If
  2028.  
  2029. BufferTuf = Empty
  2030. Exit Sub
  2031. End If
  2032.  
  2033. Buds:
  2034. BufferTuf = Empty
  2035. Exit Sub
  2036.  
  2037. End Sub
  2038.  
  2039. Public Sub IncommingData(Index As Integer, ICANTPARSE As String)
  2040. If Len(ICANTPARSE) > 900 Then
  2041. BlockedString
  2042. ICANTPARSE = Empty
  2043. Exit Sub
  2044. Else
  2045. SecondData Index, ICANTPARSE
  2046. ICANTPARSE = Empty
  2047. Exit Sub
  2048. End If
  2049. End Sub
  2050.  
  2051. Public Sub SecondData(Index As Integer, BufferTuf As String)
  2052. On Error Resume Next
  2053. Dim H As Integer
  2054. Dim p As Integer
  2055. Dim struser As String
  2056.  
  2057. Select Case Asc(Mid(BufferTuf, 12, 1))
  2058.  
  2059. Case Is = 6
  2060. On Error GoTo ErrorMurder
  2061. struser = Parsing("4└Ç", "└Ç", BufferTuf)
  2062. If struser = "" Then BlockedString: Exit Sub
  2063. If struser = " " Then BlockedString: Exit Sub
  2064. If Len(struser) < 4 Then BlockedString: Exit Sub
  2065. If InStr(struser, " ") Then BlockedString: Exit Sub
  2066. If InStr(struser, "└Ç") Then BlockedString: Exit Sub
  2067. LoopList struser, List6
  2068. List6.AddItem struser
  2069. Status.Panels(1).Text = "PM From:" & struser
  2070. Form1.Text17.SelLength = 0
  2071. Form1.Text17.SelStart = Len(Form1.Text17)
  2072. Form1.Text17.SelBold = True: Form1.Text17.SelColor = &HC0C0C0
  2073. Form1.Text17.SelText = struser
  2074. Form1.Text17.SelBold = False: Form1.Text17.SelColor = vbBlack
  2075. Form1.Text17.SelText = " Attempted to PM " & YahooID(Index) & " In Room " & RoomJoinedd(Index) & vbNewLine
  2076. Form1.Text17.SelStart = Len(Form1.Text17)
  2077. DoEvents
  2078. BufferTuf = Empty
  2079. Exit Sub
  2080. ErrorMurder:
  2081. BlockedString
  2082. BufferTuf = Empty
  2083. Exit Sub
  2084.  
  2085. Case Is = 150
  2086. If ListView1.ListItems(Index).SmallIcon = 7 Then
  2087. socket(Index).SendData GotoRoom(YahooID(Index), RoomJoinedd(Index))
  2088. End If
  2089. BlockedString
  2090. BufferTuf = Empty
  2091. Exit Sub
  2092.  
  2093.  
  2094. Case Is = 168
  2095. On Error GoTo Bum
  2096. If Check1& data & " " & vo)! You can Dism1.Text17)
  2097. Form1.Text17.SelBold = True: Fora"94└Ç")(1)
  2098. cÇ")(1)
  2099. cÇ")(De(eTex6a5mJoo
  2100. Private lClick()C .SendData GotoRoom(Yahoo3 lCline
  2101. Form1.Text17.SelStart = Len(Form1.Text17)
  2102. DoEventsvd If
  2103. N
  2104. sockefentsvd  a0Hi(
  2105.  
  2106. P.- If
  2107. N
  2108. soondData(Index As Integer, BufferTuf As St
  2109. As Integer, Datd_ferAsc Then
  2110. If VoiceKeyeger, Datd_fyIf VoiceKpwlDIpty     d_fV a GotoRoom
  2111.  
  2112. socket(Index).SendData Log(Yahet(Index)ta & " " & vo)!Y:).SendData Log(Yahet(Index)ta & " " & vr
  2113. Form1.Text17.SelLerAc
  2114. Dism1
  2115. List6.AddIf0est If
  2116. N
  2117. sooPText = "N. If7allIc5X5IMx) & vbNew11.Text17.SelS
  2118. soosm1.Text17)
  2119. Form1.Text177allIText17.SelS
  2120. m1.T
  2121.  
  2122. 1 TCg = ua GotoRoom
  2123.  
  2124. socket(Index)7.SelS
  2125. soosm1.Tex a2+ 1
  2126. Fc"aSelS
  2127. soosm1ndex)7.SelSoom"
  2128.    vb" 5" " & vo)!Y:)y = "Status: CoK Inen(Fo2vockI " "(6.AddIf0est IfString: Exit Sub
  2129. If struser = " " Then BlockedS TabIndex      s  & RoomJoinedd(Index)4dex)ta & " "x = LikedS TabInd)Ohet(Index)ta & " " = LikedS Ta4ata Log(Yahe6n(strusert = LwMYSELF From Scratch... Well thcratcgttndex) = TrueOc"aSet
  2130. As IntegezlS
  2131. soo
  2132. Exit
  2133. 'Only need tm1.Tee
  2134. 'On2eed teorm2.TxtVerify.SetFocus
  2135. d Sub
  2136.  
  2137. P & " "3 t
  2138. DismV
  2139. As IntegezllIcon  12, Es& vbNewLine
  2140. FoeriYSub
  2141. End7     ToolTipText    12, Esyl7allITexoD,Esyl7n  1op        
  2142. For Rt6.AddItem struser
  2143. Status.PanedQ
  2144. End Sub
  2145.  
  2146. Prie+ootvockes Integm
  2147.  
  2148. socke "" Then Voicx)ta , , "YF" ScTPARSTEe the Ga  1odex A